home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / DDPLUS71.ZIP / SETUP.ZIP / WORLDVAR.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1995-03-09  |  1.6 KB  |  57 lines
  1. (****************************************************)
  2. (*   Programming:  Bob Dalton                       *)
  3. (*   Demonstration Program for using Turbo Vision   *)
  4. (*    as a game configuration and setup program     *)
  5. (*    for BBS Doors                                 *)
  6. (****************************************************)
  7.  
  8. UNIT WorldVar; {This unit contain all your Global Variables}
  9.  
  10. INTERFACE
  11.  
  12. const
  13.       {Command Constant Numbers}
  14.       cmExitSave          = 201;
  15.       {cmQuit requires no number as it is a built in TV function}
  16.       cmFirst             = 202;
  17.       cmSecond            = 203;
  18.       cmThird             = 204;
  19.       cmHowManySoldiers   = 205;
  20.       cmHowManyTanks      = 206;
  21.       cmHowMuchMoney      = 207;
  22.       cmHowManyGenerals   = 208;
  23.  
  24.       {Help Constant Numbers - may not be the same as above}
  25.       hcExitSave          = 101;
  26.       hcNoSave            = 102;
  27.       hcFirst             = 103;
  28.       hcSecond            = 104;
  29.       hcThird             = 105;
  30.       hcHowManySoldiers   = 106;
  31.       hcHowManyTanks      = 107;
  32.       hcHowMuchMoney      = 108;
  33.       hcHowManyGenerals   = 109;
  34. type
  35.   GlobRec = Record    {Sample game record}
  36.     Soldiers:Word;
  37.     Tanks   :Byte;
  38.     Money   :Word;
  39.     Generals:Byte;
  40.    End;
  41.   GlobFile1 = File of GlobRec;
  42.  
  43. VAR
  44.   REGISTERNUMBER : String[9];
  45.   Buyer          : String[35];
  46.   NameOfBoard    : String[35];
  47.   Registered     : Boolean;
  48.   Year           : Word;
  49.   Month          : Word;
  50.   Day            : Word;
  51.   Glob           : GlobRec;
  52.   GlobFile       : GlobFile1;
  53.  
  54. IMPLEMENTATION
  55.  
  56. END.
  57.